約 2,105,534 件
https://w.atwiki.jp/ce00582/pages/1949.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(14 To 69, 1 To 49) As Single Dim mos(14 To 69, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 65) As Single Dim minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1950 To 1989, 15 To 64) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Dim m2rate(0 To 200) As Single Dim mrate(0 To 200) As Single Open "c /dig/data/女子遺族.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4 age = a1 m2rate(age) = a2 mrate(age) = a3 Loop Close #6 Open "c /dig/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /dig/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /dig/gdata/女子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #6 Open "c /dig/gdata/女子待期者.txt " For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #7 Open "c /dig/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a4 Loop Close #5 For byear = 1950 To 1989 For car = 1 To 49 mis(age, car) = 0 mos(age, car) = 0 Next ageage = 2008 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) a2 = mout(age, car) mis(age, car) = a1 mos(age, car) = a2 Next age = ageage + 1 mis(age, 1) = m2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(age, car) = (1 - gamma(age - 1)) * mis(age - 1, car - 1) + v * mos(age - 1, car - 1) Next For car = 1 To 49 mos(age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(age - 1, car) + (1 - alpha(age - 1) - v) * mos(age - 1, car) Next Next For age = 15 To 64 z1 = 0 For car = 1 To 25 z1 = z1 + m2rate(age) * alpha(age) * mis(age, car) Next For car = 25 To 49 z1 = z1 + m2rate(age) * alpha(age) * (mis(age, car) + mos(age, car)) Next mnew(byear, age) = z1 Next Debug.Print byear Next Open "c /dig/gdata/女子遺族新規裁定者2.txt " For Output As #4 For byear = 1950 To 1989 For age = 16 To 64 Write #4, byear, age, mnew(byear, age) Next Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1890.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 14 To 69, 1 To 49) As Single Dim mos(1900 To 2100, 14 To 69, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /dig/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /dig/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /dig/gdata/男子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #6 Open "c /dig/gdata/男子待期者.txt " For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #7 Open "c /dig/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1944 To 1989 ageage = 2008 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = m2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next mnew(byear) = z1 Debug.Print byear, mnew(byear) Next Open "c /dig/gdata/男子通算新規裁定者2.txt " For Output As #4 For byear = 1944 To 1989 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1898.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 14 To 69, 1 To 49) As Single Dim mos(1900 To 2100, 14 To 69, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /dig/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /dig/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /dig/gdata/女子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #6 Open "c /dig/gdata/女子待期者.txt " For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #7 Open "c /dig/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1949 To 1989 ageage = 2008 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = f2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) z2 = z2 + car * (mis(byear, age, car) + mos(byear, age, car)) Next mnew(byear) = z2 / z1 Debug.Print byear, mnew(byear) Next mnew(1948) = mnew(1949) Open "c /dig/gdata/女子平均加入年数2.txt " For Output As #4 For byear = 1948 To 1989 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1909.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 14 To 69, 1 To 49) As Single Dim mos(1900 To 2100, 14 To 69, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /dig/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /dig/gdata/男子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #6 Open "c /dig/gdata/男子待期者.txt " For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #7 Open "c /dig/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /dig/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1944 To 1989 ageage = 2008 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = m2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 z2 = 0 For car = 1 To 24 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) z2 = z2 + car * (mis(byear, age, car) + mos(byear, age, car)) Next mnew(byear) = z2 / z1 Debug.Print byear, mnew(byear) Next mnew(1943) = mnew(1944) Open "c /dig/gdata/男子通算平均加入年数2.txt " For Output As #4 For byear = 1943 To 1989 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1578.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 14 To 69, 1 To 49) As Single Dim mos(1900 To 2100, 14 To 69, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /eli/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /eli/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /eli/gdata/男子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #6 Open "c /eli/gdata/男子待期者.txt " For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #7 Open "c /eli/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1944 To 1989 ageage = 2008 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = m2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next mnew(byear) = z1 Debug.Print byear, mnew(byear) Next Open "c /eli/gdata/男子通算新規裁定者2.txt " For Output As #4 For byear = 1944 To 1989 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1897.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 14 To 69, 1 To 49) As Single Dim mos(1900 To 2100, 14 To 69, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /dig/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /dig/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /dig/gdata/男子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #6 Open "c /dig/gdata/男子待期者.txt " For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #7 Open "c /dig/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1949 To 1989 ageage = 2008 - byear age = ageage For car = 1 To 49 mis(byear, age, car) = minx(age, car) mos(byear, age, car) = mout(age, car) Next age = ageage + 1 mis(byear, age, 1) = m2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) z2 = z2 + car * (mis(byear, age, car) + mos(byear, age, car)) Next mnew(byear) = z2 / z1 Debug.Print byear, mnew(byear) Next Open "c /dig/gdata/男子平均加入年数2.txt " For Output As #4 For byear = 1949 To 1989 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1448.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1900 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(15 To 65, 1 To 50) As Single Dim mout(15 To 65, 1 To 50) As Single Dim mnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /kirakira/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /kirakira/data/男子脱退率.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /kirakira/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a2 Loop Close #3 Open "c /kirakira/gdata/男子被保険者.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #4 Open "c /kirakira/gdata/男子待期者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #6 Open "c /kirakira/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1950 To 1984 ageage = 2000 - byear age = ageage For car = 1 To 49 byear = 2000 - age a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = m2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next mnew(byear) = z1 Debug.Print byear Next Open "c /kirakira/gdata/男子新規裁定者2.txt " For Output As #4 For byear = 1930 To 1984 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1766.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(14 To 69, 1 To 49) As Single Dim mos(14 To 69, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 65) As Single Dim minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1950 To 1989, 15 To 64) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Dim m2rate(0 To 200) As Single Dim mrate(0 To 200) As Single Open "c /eli/data/女子遺族.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4 age = a1 m2rate(age) = a2 mrate(age) = a3 Loop Close #6 Open "c /eli/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /eli/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /eli/gdata/女子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #6 Open "c /eli/gdata/女子待期者.txt " For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #7 Open "c /eli/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a4 Loop Close #5 For byear = 1950 To 1989 For car = 1 To 49 mis(age, car) = 0 mos(age, car) = 0 Next ageage = 2008 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) a2 = mout(age, car) mis(age, car) = a1 mos(age, car) = a2 Next age = ageage + 1 mis(age, 1) = m2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(age, car) = (1 - gamma(age - 1)) * mis(age - 1, car - 1) + v * mos(age - 1, car - 1) Next For car = 1 To 49 mos(age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(age - 1, car) + (1 - alpha(age - 1) - v) * mos(age - 1, car) Next Next For age = 15 To 64 z1 = 0 For car = 1 To 25 z1 = z1 + m2rate(age) * alpha(age) * mis(age, car) Next For car = 25 To 49 z1 = z1 + m2rate(age) * alpha(age) * (mis(age, car) + mos(age, car)) Next mnew(byear, age) = z1 Next Debug.Print byear Next Open "c /eli/gdata/女子遺族新規裁定者2.txt " For Output As #4 For byear = 1950 To 1989 For age = 16 To 64 Write #4, byear, age, mnew(byear, age) Next Next Close #4 End Sub
https://w.atwiki.jp/tgubd/pages/23.html
概要 通称:ウサギ亭 冒険者の店。 芸能事が大好きな店主が経営する店。店内に小さなステージがあり、毎晩歌ったり踊ったりのバカ騒ぎが続いている。その楽しげで親しみ易い雰囲気から、冒険者以外の人々も多く集まり賑わっている。 ちなみに店名は、伝説の冒険者にしてトップアイドル「ノーム・ブラッキー」をあやかっており、店の中には大きな肖像画が飾ってある。 人物 フォルサー・グラン(ナイトメア/男/37歳) 「」 黒縁メガネを掛けた温厚な男性。失踪癖があり、店に居ないこともしばしば。寝ぐせがチャームポイント。 カーチス・トルトゥーラ(ドワーフ/女/24歳) 「」 明るい桃色の髪を、二つに括ったドワーフの女の子。小柄で愛らしい顔をしているが、ずっと祖父母に育てられた為、年寄り臭い喋り方をする。楽器職人を目指しており、いつか自分の工房を持つことを夢見ている。
https://w.atwiki.jp/ketcindy/pages/39.html
扇形の弧の長さと面積に関する公式の証明で利用する. #ref error :ご指定のファイルが見つかりません。ファイル名を確認して、再度指定してください。 (title=) fan-shape-formula.zip 画面上に幾何点A(0,0)をとる. 中心A,点B(3,0)を通る円を引く. 注)画面上側のツールバー「円を加える」を使用する. 幾何点をとり,円に近づけると,円周上に点Cができる. Addax(0); // 座標軸を描かない Setcolor([1,0,0,0]); // 線の色をcmykで(1,0,0,0)にする(cyan=1) Circledata("1",[A,B],["Rng=[0,2*pi]"]); // 円を作成 Setcolor([0,0,0,1]); // 線の色をcmykで(0,0,0,1)に戻す(key plate=black=1) Listplot("1",[A,B],["dr,1.5"]); Listplot("2",[A,C],["dr,1.5"]); // 線分AB, ACを作成 // 注)オプションは,1.5梅の太さの実線を意味する Th=arccos(C.x/B.x); Defvar("Th",Th); Circledata("2",[A,B],["Rng=[0,Th]","dr,1.5"]); // 点Cの偏角を変数Thを定義し,DefvarでScilabに渡す Bowdata([A,B],[1,0.5,"Expr=r"]); Bowdata([B,C],[3,0.5,"Expr=l"]); // 弓AB, BCを作成 // 注)オプションは,第1引数が弓の半径の倍率,第2引数が弓の切りの倍率, "Expr="で弓の切りに入れる数式を意味する Anglemark([B,A,C],["E=\theta"]); // 角マークを作成し,数式$\theta$を書く Letter([A,"sw","O",B,"e","A",C,"nw","B"]); Expr([D,"c","S"]); // 基準点A, B, Cに文字"O", "A", "B"を書き,基準点Dに数式"S"を書く // 注)位置は,"sw"が南西,"e"が東,"nw"が北西,"c"が中央